home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue55 / construc / WEBMOD.PAS < prev   
Pascal/Delphi Source File  |  2000-02-07  |  1KB  |  47 lines
  1. unit WebMod;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, HTTPApp;
  5.  
  6. type
  7.   TWebModule1 = class(TWebModule)
  8.     procedure WebModule1WebActionItem3Action(Sender: TObject;
  9.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  10.   private
  11.     { Private declarations }
  12.   public
  13.     { Public declarations }
  14.   end;
  15.  
  16. var
  17.   WebModule1: TWebModule1;
  18.  
  19. implementation
  20. uses
  21.   Base64;
  22. {$R *.DFM}
  23.  
  24. procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject;
  25.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  26. var
  27.   Auth: String;
  28. begin
  29.   Auth := Request.Authorization;
  30.   if Pos('Basic ',Auth) = 1 then Delete(Auth,1,6);
  31.   Auth := UnBase64(Auth);
  32.   if Pos('bswart',Auth) = 0 then
  33.   begin
  34.     Response.StatusCode := 401;
  35.     Response.WWWAuthenticate := 'Basic';
  36.     Response.Realm := '/DrBob';
  37.     Response.SendResponse;
  38.   end
  39.   else
  40.   begin
  41.     Response.Content := 'Welcome: ['+Request.Authorization+']=['+Auth+'])'
  42.   end
  43. end;
  44.  
  45. end.
  46.  
  47.